home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / AZTECW.DIR / 01701_Script_Mealtimes < prev    next >
Text File  |  1995-09-12  |  3KB  |  101 lines
  1. global gQuest, gBeenClicked, gHouseIsOpen
  2.  
  3. on AFoodRollovers1
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(9) then
  7.       repeat while rollover(9)
  8.         AztecCursor
  9.         puppetsprite 10, true
  10.         set the locH of sprite 10 to 138
  11.         set the locV of sprite 10 to 290
  12.         updatestage
  13.         if the mousedown then
  14.           set GBeenClicked = 1
  15.         else
  16.           if gBeenClicked = 1 then
  17.             repeat while gBeenClicked = 1
  18.               AnimateToSlowPauseFrom 6, 413, 3, "SA200500.AIF", 1
  19.             end repeat
  20.           end if
  21.         end if
  22.       end repeat
  23.       set the locH of sprite 10 to 938
  24.       puppetsprite 10, false
  25.       updatestage
  26.     else
  27.       if rollover(7) then
  28.         ArrowCursor
  29.         repeat while rollover(7)
  30.           set the locH of sprite 8 to 260
  31.           set the locV of sprite 8 to 264
  32.           updatestage
  33.         end repeat
  34.         set the locH of sprite 8 to 960
  35.         updatestage
  36.       else
  37.         if rollover(40) then
  38.           HandCursor
  39.         else
  40.           if rollover(41) then
  41.             HandCursor
  42.           else
  43.             if rollover(42) then
  44.               HandCursor
  45.             else
  46.               ArrowCursor
  47.             end if
  48.           end if
  49.         end if
  50.       end if
  51.     end if
  52.   end if
  53.   RandomQuestion(gQuest)
  54. end
  55.  
  56.  
  57. on AFoodRollovers2
  58.   set gBeenClicked = 0
  59.   if (not(CheckClickedStatus(gQuest))) then
  60.     if rollover(6) or rollover(7) then
  61.       repeat while rollover(6) or rollover(7)
  62.         AztecCursor
  63.         puppetsprite 8, true
  64.         set the locH of sprite 8 to 420
  65.         set the locV of sprite 8 to 227
  66.         updatestage
  67.         if the mousedown then
  68.           set GBeenClicked = 1
  69.         else
  70.           if gBeenClicked = 1 then
  71.             set the locH of sprite 8 to 820
  72.             updatestage
  73.             repeat while gBeenClicked = 1
  74.               AnimateLoop 6, 420, 4, "SA200501.AIF", 1
  75.             end repeat
  76.           end if
  77.         end if
  78.       end repeat
  79.       set the locH of sprite 8 to 920
  80.       puppetsprite 8, false
  81.       updatestage
  82.     else
  83.       if rollover(39) then
  84.         HandCursor
  85.       else
  86.         if rollover(41) then
  87.           HandCursor
  88.         else
  89.           if rollover(42) then
  90.             HandCursor
  91.           else
  92.             ArrowCursor
  93.           end if
  94.         end if
  95.       end if
  96.     end if
  97.   end if
  98.   RandomQuestion(gQuest)
  99. end
  100.  
  101.